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TIONS 

EF = Allocate one local event leg 

3 EF = Deallocate one local event flag 
RVE_EF = Reserve a local event flag 


VAX/VMS Macro V04-00 


Page 


, = 
IBSEF = Resource allocator for local event fla 15-SEP-1984 23:59:4 AX/VMS Macro V04-00 Page 1 
-006 66-SEP-1984 $7 i06:63 YMTORIL. SREICIBEF MAR: 1 ° (1) 
TITLE Liesre - Resource allocator for local event flags 
~IDENT /1-006/ ; File: LIBEF.MAR Edit: MDL1006 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS RESERVED. 
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OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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& SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS ar FOR THE USE OR RELIABILITY OF ITS 


I 
SOFTWARE ON EQUIPMENT WHICH NOT SUPPLIED BY DIGITAL. 
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LARRARARAAAAAALASAAAARAARSARERARRRESERARERRRRRRARRRRRRRRRRRRRRR RASA RRA AS A | 
+ 
FACILITY: General Utility Library 
ABSTRACT: 
Three routines for allocating and deallocating local event 
flag numbers. Using these routines allows use of local 
event flags by multiple procedures without conflicts. 


ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: Steven B. Lionel, CREATION DATE: 08-DEC-78 

MODIFIED BY: 

SBL, : VERSION 1 

- 6 - Original 

1- § - Pre-reserve event flags 1-23. SBL 18-Dec-78 

1-005 - Put _ before PSECT names and make error codes be 

global. JBS for st 3-JAN-197 

1-008 - Correct a typo in edit 005. JBS 24-JAN-1979 

1-005 - Add a first time fee to allow initialization of non-zero data at | 
run-time, thus allowing the Linker to perform demand-zero compression 
and hel ing performance. MDL b-Jut=1984 


1-006 - Change interpretation of 1/2 the bits in EF_POOL, eliminating she need for 
a first time flag and restoring AST re-entrancy. MDL 7-Aug-1984 


COOCOCCOCCOCOCOOCOSOOOSOOOOOOSOSOCOOOCSOOOOOOOSOOOOOOOOOOOOOOSoOO 
COOQCOCOCOCOCOCOCOCOSCOSSSSOCSOCSOOOCOCOOCOOCOOOOCOOOOOoCOoO: 
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Thus, the initial setting of 0 allows for: 

Event flags 0 and 24-31 are reserved to the system. 
Event flags 1-23 are pre-reserved. 

Event flags 32-63 are available for use. 


; PSECT DECLARATIONS: 


.PSECT _LIBSCODE PIC, USR, CON, REL, LCL. SHR, - 
EXE, RD, NOWRT. LONG 
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DECLARATIONS 3786-138 $7 i06:63 LMTBRIL. SREICIBER MAR: 1 ° 3) ix 
f «SBTTL DECLARATIONS | 
; INCLUDE FILES: 
60 ; | 
Hf | 
80 és ; EXTERNAL DECLARATIONS: 
00 65 -DSABL GBL ; Prevent undeclared 
B08 96 ; symbols from being 
0 6 ; automatically global. 
8 88 oe -EXTRN LIBS_INSEF ; Error codes 
$ -EXTRN LIBSEF_ALRRES 
9 00 0 -EXTRN LIBS"EF~ALRFRE 
000 71 -EXTRN LIBSTEFRESSYS 
9000 7 | 
44 73; 
444 74 ; MACROS: 
0000 73 3 
0000 76 
0000 77; | 
Bopp a ; EQUATED SYMBOLS: 
00000004 444 + ef_number = 4 3; event flag number parameter 
$090 Ht 3; OWN STORAGE: 
0000 83 ; 
00000000 84 -PSECT _LIBSDATA RD, WRT, NOEXE, NOSHR, PIC, LONG, - 
0000 85 CON; LCL; REL, USR | 
$000 87 EF_POOL: ; Pool of available event flags 
00000000 00000000 a4 8 -QUAD 0 
0008 90 sPLEAaSE NOTE = 
00 91 : 
0008 35 ; EF_POOL is structured as follows: 
0008 9 ; Low order bit (bit 0) represents event flag number 63. 
44 Be 3; High order bit (bit 63) represents event flag number 0. 
0008 9 ; Bits 0-31 of EF_POOL (event flags 32-63) are interpreted as folows: 
000 9 ; 0 => available 
BOOB : 1 = geserved 
008 99 ; Bits 32-63 of EF_POOL (event flags 0-31) are interpreted as follows: 
4 : 9 => reserved 
3; 1 => available 
4 3 
0 0 ; 
0 | : | 
1 
1 
1 
1 | 
| 


H 3 
cator for local event fla 15 
locate one local event fl 6 


lo 
Al 
15 -SBTTL LIBSGET_EF - 
18 ++ 
! FUNCTIONAL DESCRIPTION: 
15 LIBSGET_EF allocates one local event flag from a process-wide 
0 pool. If a flag is available for use, its number is returned 
1 to the caller. If no flags are available, an error is returned 
§ as the function value. 
: CALLING SEQUENCE: 
§ status.wilc.v = LIBSGET_EF (ef_number.wl.r) 
8 
9 
0 . 
4 
36 
6 
7 
$ 
9 
40 
] 
23 
44 
45 
46 
47 
48 
49 
50 
é) 
38 


: INPUT PARAMETERS: 
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NONE 
IMPLICIT INPUTS: 


EF_POOL, a table of available event flag numbers in OWN 
storage. 


OUTPUT PARAMETERS: 


ef number - The number of the local event flag allocated 
or -1 if none were available. 


IMPLICIT OUTPUTS: 


If successful, an entry is made into EF_POOL indicating that 
a local event flag has been reserved. 


FUNCTION VALUE: 
COMPLETION CODES: 


SS$_NORMAL - Routine successfully completed. 


LIBS_INSEF - Insufficient event flags. There were no 
more event flags available for allocation. 


SOOOoQoooooooooooooooooooooooooooooooooooo 
SOOQooooococcoccocoooooooooooooooCooooooooo 


f this error is returned, ef_number is 
also set to -1 in case the caller does not 
check for failure. 


COOOCCCOOCSOSOOSOSCSOSOOSOOSOSOOOCOOOOOSOOOOSOOOSOSOOOSOOOCSOOSOOSO Cc 


; SIDE EFFECTS: 
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a a ee st et et ts ss Ss SS SS SS SS SS Ss SS SS SS OD Ss SS SS DS SS FH SS Ss SS SS SG 


00 54 

00 55 

00 56 

3 ie 

33 60 NONE 

0 61 
099168 
4000 4 rf -ENTRY LIBSGET_EF, “M<IV> ; Save nothing 

66 ;+ 

6 7 ; Scan EF_POOL for first available event flag number 
08 :- 

5 SCAN: 

50 00000000°EF 20 00 €8 71 FFC #0, #32, EF_POOL, RO 


so = " 


; F 
IBSEF = Resource allocator for local event fla 15-SEP-1984 AX/VMS Macro v04-00 P 
5-606 LIBSCEY EF o ACLocote one Local weone Ft BcSEPclORG S7iG050$ OTORTE. SaeoCIMEE mart age 4) 
1 12 BNEQ 3; One was found 
50 O0000000'EF 20 28 FA FFS non ase, EF_POOL, RO ; Try nent 32 positions 
8 3 BEQL ALL_OUT 3; None available 
@ + 
: Now recheck and set the bit under interlock, in case someone | 
: has set it at AST level in the meantime. 


FOUND _LOW: 


E2 OOOOOOOO'EF 50 €5 BBCC RO, EF eee’ SCAN ; Repeat scan if already set 
08 i BRB LEAVE 
FOUND 
D8 OOOOOOOO'EF 50 €E2 BBSS RO, EF_POOL, SCAN ; Repeat scan if already set 


2 
Return success with event flag number in ef_number. 


LEAVE_GET: 
SUBL3 RO, #63, @ef_number(AP) ; Subtract from 63 because 
lo order Me bit is 


046C 3F 50 C3 
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SOOOCCOCOCOSOSOOCSOSOCOSCOOSOSOOCOOOOOCOOOOOOOOoOoSSOOSO “Cc 


i event flag 
50 01 dO MOVL #i, RO 3; SS$_NORMAL 
04 RET ; Exit 

3+ 

5 Return error since no event flags available 

ALL_OUT: 

04 BC O1 CE MNEGL #1, @ef “pet? al ; Set ef-number to -1 
50 00000000'8F Be nove #..iB$_IRSEF, 3 pnguttictent event flags 

: Ex 
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‘ ~SBTTL LIBSFREE_EF = Deallocate one local event flag 

FUNCTIONAL DESCRIPTION: 
LIBSFREE_EF is the complement of LIBSGET_EF. When a routine 
called LIBSGET_EF to allocate a local evént flag, and no 
Longer needs if, LIBSFREE_EF should be called to free the 
event flag for use by other routines. 

CALLING SEQUENCE: 

; status.wlc.v = LIBSFREE_EF (ef_number.rl.r) 

INPUT PARAMETERS: 
ef number - The number of the event flag to be 


deallocated. This is the value returned 
to the user by LIBSGET_EF. 


& @& 
ce? 


IMPLICIT INPUTS: 


cF_POOL, a table of available event flag numbers in OWN 
storage. 


OUTPLT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 


An entry is made in EF_POOL indicating that the event flag 
is free for use. 


FUNCTION VALUE: 
COMPLETION CODES: 


SS$_NORMAL - Routine successfully completed. 

LIBS_EF_ALRFRE = Event flag already free. 

LIBS_EF_RESSYS - Event flag reserved to system. This 
occurs_if ef nuaber is outside the ranges 
of 1-23 and 32-63. 

; SIDE EFFECTS: 


NONE 


PREPARA XPD Sr BB BEE BE WWII WII II IIR POPONIPODRIPOITPP 2 OO Ot Oe es ee 
AFAR @O ODA UE WIR 0 OO NAME WIN © OO NA UE WIN 0 HOD NIA EWN OOO OU O 


-ENTRY LIBSFREE_EF, “M<IV> ; Save nothing 
Check to see if ef_number is in the proper range. 


CMPL @ef_number(AP), #63 ; Bigger than 63? 
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1-006 LIBSFREE_EF = Deallocate one local event a ett #7500368 LIBRTL.SRCILIBEF .MAR; 1 ° 
31.14 $3 7 BGTR RES_SYS_1 ; Yes, error 
04 Bt iT 4 8 TSTL Bet -nuaber (AP) ; Less than 1? 
C 4A BLEQ RES_SYS ; Yes, error 
17 06 BE 91 O04 0 CHPB oo def"nunBer(AP), #23; 1-387 
1 15 5 7 BLEQ OK_LOW 3; Yes,_ok 
20 O048C 91 5 os CMPB aef_number(AP), #32 ; 32-63? 
20 «(19 5 ie BLSS RES_SYS_1 ; No, error 
8 75 34+ 
82 A : ef_number is in range 32-63. Now, unset the bit. 
008 18 OK_1: 
50 3F 04 8C C3 005 0 SUBL3 @ef_mumber(AP), #63, RO ; Convert to bit offset 
18 00000000'EF 50 €5 005 1 BBCC  RO,"EF_POOL, ALR_FRE =; Clear but error if 
Bae § ; already clear. 
OD 11 006 BRB LEAVE_FRE 
Bnee 4 
067 5 3+ 
0067 e 3 ef_number is in range 1-23. Now, set the bit. 
0067 rH i- 
0067 8 
0067 89 OK_LOW: 
50 3F 04 8C C3 0067 90 SUBL3 @ef_number(AP), #63, RO ; Convert to bit offset 
Oc 00000000'EF 50 £2 006C 291 BBSS RO,"EF_POOL, ALR_FRE =; SET but error if 
0074 6 3; already SET. 
074 9 
074 94 ;+ 
074 95 3 Return success 
0074 96 ;:- 
0074 97 
0074 98 LEAVE_FRE: 
50 01 DO 0074 99 MOVL #1, RO 3; SS$_NORMAL 
04 Boo 00 ET 
th 01 
007 bg 3+ 
007 03 ; Error if event flag number reserved to system or 
ono 04 ; out of range. 
07 05 ;- 
4 6 
07 07 RES_SYS_1: 
50 00000000'8F D0 007 4 MOVL #LIBS_EF_RESSYS, RO ; Event flag reserved 
04 007F 0 RET 
08031): 
\¢ : Error if event flag already free. 
14 
15 ALR_FRE: 
50 00000000'8F 00 08 16 rt #LIBS_EF_ALRFRE, RO ; Event flag already free 
8 18 


LIBSEF or for local ovina’ fle 15-SEP=1 
1-006 eserve a local event f 6-SEP-1 
-_ -SBTTL LIBSRESERVE_EF - 
; FUNCTIONAL DESCRIPTION: 
LIBSRESERVE_EF is used when a routine wants to allocate 


a@ particular local event flag number. This is different 
from LIBSGET_EF which allocates an arbitrary event flag. 


To deallocate an event flag reserved with LIBSRESERVE_EF 
use LIBSFREE_EF. 


; CALLING SEQUENCE: 
status.wic.v = LIBSRESERVE_EF (ef_number.rl.r) 
; INPUT PARAMETERS: 


4 23:59:4 AX/VMS Macro V04-00 P 
Bt Hidosos OKSNTS Sacto yOr-O0 wd 


eserve a local event flag 


-_. 
— 
won 
PMO 
mw 
Dee 


9 
9 
R 


ef number - The number of the event flag desired to be 
allocated. 


>; IMPLICIT INPUTS: 


EF_POOL, a table of available event flags located in OWN 
storage. 


: OUTPUT PARAMETERS: 
; NONE 
: IMPLICIT OUTPUTS: 


An entry is made in EF_POOL indicating that the event 
flag is allocated. 


; FUNCTION VALUE: 
; COMPLETION CODES: 


SS$_NORMAL = Routine successfully completed. 
LIBS_EF_ALRRES - Event flag already reserved. 
LIBS_EF_RESSYS =- Event flag reserved to system. This 


occurs if ef puaper is outside the ranges 
of 1-23 and 32-63. 
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; SIDE EFFECTS: 
NONE 


~-ENTRY LIBSRESERVE_EF, “M<IV> ; Save nothing 


: First check to see if ef_number is in range. 
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CMPL Bel pusher (AP), #63 ; Greater than 63? 
BGTR RES_SYS ; Yes, error 
TSTL aef_numBer (AP) j Less than 1? 
BLEQ 2 3 yes error 
CMPB = @e ff number (AP), #23 ; 1-287 
BLEQ OK 3 13s ok 
CMPB aef number (AP), #32 3 32-63? 
BLSS RES_SYS_ ; No, error 
3¢ 
3 Now attempt to allocate an event flag in the 32-63 range. 


SUBL3 @ef_number(AP), #63, RO ; Convert to bit offset 
BBSS RO,"EF_POOL, ALR_RES =; Reserve it, but error 

: 3; if already reserved. 
BRB LEAVE_RES 


3 Now attempt to allocate an event flag in the 1-23 range. 


OK_LOW2: 
r SUBL3 @ef_number(AP), #63, RO ; Convert to bit offset 
BBCC RO,"EF_POOL, ALR_RES ; Reserve it, but error 
3; if already reserved. 


, Return success 


LEAVE_RES: 
MOV 


OVL #1, RO 3 SS$_NORMAL 
RET 3 Exit 
Z¢ 
; Error if event flag number reserved to system or out 
; of range. 
RES_SYS_2: 
MOVL #LIBS_EF_RESSYS, RO ; Reserved to system 
RET ; Exit 
3¢ 
3 Error if already allocated. 


ALR_RES: 
MOVL #LIBS_EF_ALRRES, RO ; Already reserved 
RET ; Exit 


~END 
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LIBSEF - Resource allocator for local event fla Fb dt 9 3:59:34 AX/VMS 
Symbol table 6-SEP-1984 11:06:0 LIBRTL 
LL_OUT 00000 R 
ALR_FRE 8 H fe 
ALR_RES 0 f R 
EF _RNUMBER = 00004 
EF POOL 00 8 i 01 
ND 00 R 8 
OUND _LOW 0000 & 
VE_FRE siti 74 R 0 
VE_GET 000002A R 0 
RES Book O EE R 0 
FREE_EF QOOOOOSF RG 
GET _EF itt 44 RG 
RESERVE_EF 00000088 RG 
F_ALRFRE ‘teeeeeee Xx (00 
FLALRRES seeeeeee =X 8 00 
“EF-RESSYS eeeeeeee X 00 
NSEF keeeeeee x 00 
00000058 R 02 
OQ0000A1 R 02 
OK LOW 00000067 R 02 
Ow2 00000080 R 02 
RES_SYS_1 0000078 R 02 
RES SYS_2 000000C1 R 02 
A 00000002 R 02 
doce renee we wma ce + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. es 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL N 
_LIBSDATA 00000008 8.) 01 PIC USR CON REL LCL NOSHR NOE 
_LIBSCODE 00000001 (« 209.) 02 ¢ 2.) PIC USR CON REL LCL SHR 
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Page faults 


Initialization — 32 00:00:00.9 0:00:0 -09 
ponnaed processing 162 00:0:00:52 8: 0:08:10 
Syabol iable sort 3 09: 0: 0.00 00 :00:00:60 
Srabel teble cutout 5 0: rf bbe 0:00:00-47 
Bec treecects, «= |B) 
Assembler run Setals 319 8: 8: 9-29 St PRE BRT 


The working set Limit was 1050 pages. 

4949 bytes (10 pages) of virtual memory were used to buffer the intermediate 
There were 10 pages of symbol table space allocated to hold 24 non-local and 
430 source Lines were read in Pass 1, produc ing object records in Pass 

0 pages of virtual memory were used to define 0 macros. 


gore: 
local symbols. 


XE 


EXE 


RD WR 
RD NOWRT 
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OSHR NOEXE NORD NOWRT NOVEC BYTE 
T NOVEC LONG 


NOVEC LONG 
| 
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H Macro Library statistics H 
Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBEF /OBJ=OBJ$:LIBEF MSRC$:LIBEF /UPDATE=(ENHS:LIBEF ) 
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